home *** CD-ROM | disk | FTP | other *** search
/ The Internet for Everybody / The Internet for Everybody.iso / pc / install.inf < prev    next >
Encoding:
INI File  |  1995-02-09  |  3.8 KB  |  188 lines
  1. ;; Installer for IFE product Version 1.0.1
  2. ;; 2/9/95
  3.  
  4. DefineVariables
  5. Number [ReturnVal1]
  6. Number [ReturnVal2]
  7. number [ReturnVal3]
  8. Number [ErrCount]
  9.  
  10. Directory [WinDir]
  11. Directory [WinsDir]
  12.  
  13. Logical [EnKeyb]
  14. Logical [NetAvail]
  15. Logical [MathPres]
  16. Logical [CDAvail]
  17.  
  18. Number [XMSAvail]
  19. Number [ExtmemPagesActive]
  20. Number [ExtmemPagesAvail]
  21. Number [ExtMemAvail]
  22. Number [ExtMemPres]
  23. Number [ExpMempgavail]
  24. Number [ExpMempgactive]
  25.  
  26. Text [DispType]
  27. Text [OSVer]
  28. Text [DosVer]
  29. Text [EmsVer]
  30.  
  31. Text [ProdExecutable]
  32. Text [GroupTitle]
  33. Text [GroupFile]
  34. Text [ExistingGroupName]
  35. Text [InstDir]
  36.  
  37. Text [FactsIconF]
  38.  
  39. Text [IconTitle]
  40. Text [IconFile]
  41.  
  42. EndDefineVariables
  43.  
  44. SetDefaultBitMap Off
  45.  
  46. Do SetupDisplay
  47.  
  48. Do CheckHardware
  49.  
  50. If [errcount] > 1
  51. Dialog UseHeader "Encountered Some Problems"
  52. .L The installation has encountered the following problems,
  53. .L you can continue to install or exit installation.
  54. [Array1][1]
  55. [Array1][2]
  56. [Array1][3]
  57. [Array1][4]
  58. [Array1][5]
  59. [Array1][6]
  60. [Array1][7]
  61. EndDialog
  62. Endif
  63. :Start
  64.  
  65. Dialog [YesOrNo1] UseHeader "The Internet for Everybody 1.0.1"
  66. The Internet for Everybody requires 
  67. QuickTime for Windows to play its movies. 
  68.  
  69. Do you want to install The Internet For
  70. Everybody, and run the Apple QuickTime
  71. Installer?
  72. EndDialog
  73.  
  74. If .not. [YesOrNo1]
  75. SoLong
  76. endif
  77.  
  78. Do Install
  79. SoLong
  80.  
  81. Procedure SetupDisplay
  82. SetDefaultBitMap Off
  83.  
  84. SetBackGroundColor 0 0 64 191 64 0 TopToBottom
  85.  
  86. SetPopupAttrTo YellowOnBlue
  87.  
  88. ShowWindow Maximized
  89.  
  90. EndProcedure
  91.  
  92. Procedure FindCDDrive
  93. [String1] := A
  94.  
  95. [Point1]
  96. If DriveIsCDROM [String1]
  97.   Exit ;; Drive letter of first CD ROM drive
  98. EndIf
  99.  
  100. If [String1] = Z
  101.   GoTo [Point3]
  102. EndIf
  103.  
  104. IncrementString [String1]
  105. GoTo [Point1]
  106.  
  107. [Point3]
  108. Popup Sorry. Installer could not identify your CD-ROM drive.
  109. [String1] := BlankString
  110.  
  111. EndProcedure
  112.  
  113. Procedure Install
  114. ;; [InstallationDirectory] := \IFE
  115. ;; DetermineInstallationDrive RequireFixed
  116. ;; DetermineInstallationDirectory installationdrive:\[installationdirectory]
  117.  
  118. ;; ChangeDirectoryto [InstallationDirectory]
  119.  
  120. Do FindCDDrive ;;Get device letter for CD ROM drive
  121.  
  122. [ProdExecutable] := [String1]:\IFE.exe
  123.  
  124. [GroupTitle]  := Internet For Everybody
  125. [InstDir]        := [InstallationDirectory]
  126. [IconFile]     := [String1]:\ife.ico
  127.  
  128. [IconTitle]      := The Internet For Everybody 1.0.1
  129.  
  130. ProgramManagerDDE
  131. CreateGroup([GroupTitle])
  132. DeleteItem(The Internet For Everybody)
  133. DeleteItem(Internet For Everybody)
  134. DeleteItem(The Internet For Everybody DEMO) 
  135. DeleteItem(Internet For Everybody DEMO)
  136. ReplaceItem([IconTitle])
  137. AddItem([ProdExecutable],[IconTitle],[IconFile],0,0,0)
  138. EndProgramManagerDDE
  139.  
  140. ;; Run Apple QTW Installer
  141. Run [String1]:\QTW20\SETUP.EXE NoPrompt
  142.  
  143. ;; Clean up remaining files in QTW/BIN (QTNOTIFY.EXE)
  144. If FileExists C:\QTW\BIN\QTNOTIFY.EXE
  145.    SetFileAttrTo 00 for C:\QTW\BIN\QTNOTIFY.EXE
  146. EndIf
  147.  
  148. DeleteFiles from C:\QTW\BIN Quietly
  149. *.*
  150. EndDeleteFiles
  151.  
  152. ;; Clean up Program Manager windows
  153. ProgramManagerDDE
  154. ShowGroup(QuickTime for Windows,6)
  155. ShowGroup([GroupTitle],1)
  156. EndProgramManagerDDE
  157.  
  158. EndProcedure
  159.  
  160. Procedure CheckHardware
  161. [Number3] := 1
  162.  
  163.  
  164. [Windir] := [WindowsDirectory]
  165. [Winsdir] := [WindowsSystemDirectory]
  166. [ExtmemPagesActive] := ExtendedMemoryPagesActive
  167. [ExtmemPagesAvail] := ExtendedMemoryPagesAvailable
  168. [ExtMemAvail] := ExtendedMemoryAvailable
  169. [ExtMemPres] := ExtendedMemoryPresent
  170. [ExpMempgAvail] := ExpandedMemoryPagesAvailable
  171. [ExpMempgActive] := ExpandedMemoryPagesActive
  172. [OsVer] := OSVersion
  173. [DosVer] := DOSVersion
  174. [EmsVer] := EMSVersion
  175.  
  176.  
  177. If [ExtmemPres] < 5000
  178. [Array1][[number3]] := You should have at least 6 MB of memory for video to play properly.
  179. IncrementNumber [number3]
  180. Endif
  181.  
  182.  
  183. [Errcount] := [Number3]
  184.  
  185. EndProcedure
  186.  
  187. Procedure DDENonFatalErrorTrap
  188. EndProcedure